home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / borland / tpwn31.zip / PASCAL.ZIP / WIN31.PAS < prev    next >
Pascal/Delphi Source File  |  1992-04-06  |  44KB  |  1,425 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal for Windows Run-time Library       }
  5. {       Windows 3.1 API Interface Unit                  }
  6. {                                                       }
  7. {       Copyright (c) 1991 Borland International        }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit Win31;
  12.  
  13. interface
  14.  
  15. uses WinTypes;
  16.  
  17. const
  18.   rt_Group_Cursor     = rt_Cursor + Difference;
  19.   rt_Group_Icon       = rt_Icon + Difference;
  20.  
  21. const
  22.   err_Warning   = $8000;
  23.   err_Param     = $4000;
  24.  
  25.   err_Size_Mask   = $3000;
  26.   err_Byte        = $1000;
  27.   err_Word        = $2000;
  28.   err_DWord       = $3000;
  29.  
  30. {***** LogParamError() values }
  31.  
  32. { Generic parameter values }
  33.   err_Bad_Value      = $6001;
  34.   err_Bad_Flags      = $6002;
  35.   err_Bad_Index      = $6003;
  36.   err_Bad_DValue     = $7004;
  37.   err_Bad_DFlags     = $7005;
  38.   err_Bad_DIndex     = $7006;
  39.   err_Bad_Ptr        = $7007;
  40.   err_Bad_Func_Ptr   = $7008;
  41.   err_Bad_Selector   = $6009;
  42.   err_Bad_String_ptr = $700a;
  43.   err_Bad_Handle     = $600b;
  44.  
  45. { KERNEL parameter errors }
  46.   err_Bad_HInstance       = $6020;
  47.   err_Bad_HModule         = $6021;
  48.   err_Bad_Global_Handle   = $6022;
  49.   err_Bad_Local_Handle    = $6023;
  50.   err_Bad_Atom            = $6024;
  51.   err_Bad_Hfile           = $6025;
  52.  
  53. { USER parameter errors }
  54.   err_Bad_HWnd            = $6040;
  55.   err_Bad_HMenu           = $6041;
  56.   err_Bad_HCursor         = $6042;
  57.   err_Bad_HIcon           = $6043;
  58.   err_Bad_HDWP            = $6044;
  59.   err_Bad_CID             = $6045;
  60.   err_Bad_HDrvr           = $6046;
  61.  
  62. { GDI parameter errors }
  63.   err_Bad_COORDS    = $7060;
  64.   err_Bad_GDI_OBJECT      = $6061;
  65.   err_Bad_HDC             = $6062;
  66.   err_Bad_HPEN            = $6063;
  67.   err_Bad_HFONT           = $6064;
  68.   err_Bad_HBRUSH          = $6065;
  69.   err_Bad_HBITMAP         = $6066;
  70.   err_Bad_HRGN            = $6067;
  71.   err_Bad_HPALETTE        = $6068;
  72.   err_Bad_HMETAFILE       = $6069;
  73.  
  74. {**** LogError() values }
  75.  
  76. { KERNEL errors }
  77.   err_GAlloc              = $0001;
  78.   err_GRealloc            = $0002;
  79.   err_GLock               = $0003;
  80.   err_LAlloc              = $0004;
  81.   err_LRealloc            = $0005;
  82.   err_LLock               = $0006;
  83.   err_ALlocres            = $0007;
  84.   err_LockRes             = $0008;
  85.   err_LoadModule          = $0009;
  86.  
  87. { USER errors }
  88.   err_CreateDlg           = $0040;
  89.   err_CreateDlg2          = $0041;
  90.   err_RegisterClass       = $0042;
  91.   err_DCBusy              = $0043;
  92.   err_CreateWnd           = $0044;
  93.   err_StrucExtra          = $0045;
  94.   err_LoadStr             = $0046;
  95.   err_LoadMenu            = $0047;
  96.   err_NestedBeginPaint    = $0048;
  97.   err_BadIndex            = $0049;
  98.   err_CreateMenu          = $004a;
  99.  
  100. { GDI errors }
  101.   err_CreateDC            = $0080;
  102.   err_CreateMeta          = $0081;
  103.   err_DelObjSelected      = $0082;
  104.   err_SelBitmap           = $0083;
  105.  
  106. const
  107. { WINDEBUGINFO flags values }
  108.   wdi_Options         = $0001;
  109.   wdi_Filter          = $0002;
  110.   wdi_AllocBreak      = $0004;
  111.  
  112. { dwOptions values }
  113.   dbo_CheckHeap       = $0001;
  114.   dbo_BufferFill      = $0004;
  115.   dbo_DisableGPTrapping = $0010;
  116.   dbo_CheckFree       = $0020;
  117.  
  118.   dbo_Silent          = $8000;
  119.  
  120.   dbo_TraceBreak      = $2000;
  121.   dbo_WarningBreak    = $1000;
  122.   dbo_NoErrorBreak    = $0800;
  123.   dbo_NofatalBreak    = $0400;
  124.   dbo_INT3Break       = $0100;
  125.  
  126. { DebugOutput flags values }
  127.   dbf_Trace           = $0000;
  128.   dbf_Warning         = $4000;
  129.   dbf_Error           = $8000;
  130.   dbf_Fatal           = $c000;
  131.  
  132. { dwFilter values }
  133.   dbf_Kernel          = $1000;
  134.   dbf_Krn_MemMan      = $0001;
  135.   dbf_Krn_LoadModule  = $0002;
  136.   dbf_Krn_SegmentLoad = $0004;
  137.   dbf_User            = $0800;
  138.   dbf_GDI             = $0400;
  139.   dbf_MMSystem        = $0040;
  140.   dbf_Penwin          = $0020;
  141.   dbf_Application     = $0008;
  142.   dbf_Driver          = $0010;
  143.  
  144. const
  145.   ew_RebootSystem   = $43;
  146.  
  147. { SetErrorMode() constants }
  148.   sem_FailCriticalErrors  = $0001;
  149.   sem_NoGPFaultErrorBox   = $0002;
  150.   sem_NoOpenFileErrorBox  = $8000;
  151.  
  152. const
  153.   hInstance_Error = THandle(32);
  154.  
  155. const
  156.   of_Verify     = $0400;      { Used with OF_REOPEN }
  157.  
  158. { _llseek origin values }
  159. const
  160.   seek_set = 0;
  161.   seek_cur = 1;
  162.   seek_end = 2;
  163.  
  164. const
  165. { Errors }
  166.   wn_Success       = $0000;
  167.   wn_Not_Supported = $0001;
  168.   wn_Net_Error     = $0002;
  169.   wn_More_Data     = $0003;
  170.   wn_Bad_Pointer   = $0004;
  171.   wn_Bad_Value     = $0005;
  172.   wn_Bad_Password  = $0006;
  173.   wn_Access_Denied = $0007;
  174.   wn_Function_Busy = $0008;
  175.   wn_Windows_Error = $0009;
  176.   wn_Bad_User      = $000A;
  177.   wn_Out_Of_Memory = $000B;
  178.   wn_Cancel        = $000C;
  179.   wn_Continue      = $000D;
  180.  
  181. { Connection errors }
  182.   wn_Not_Connected     = $0030;
  183.   wn_Open_Files        = $0031;
  184.   wn_Bad_Netname       = $0032;
  185.   wn_Bad_Localname     = $0033;
  186.   wn_Already_Connected = $0034;
  187.   wn_Device_Error      = $0035;
  188.   wn_Connection_Closed = $0036;
  189.  
  190. const
  191.   cc_RoundRect        = $0100;
  192.   cp_Region           = $0002;
  193.  
  194. const
  195.   rc_GDI20_State      = $0020;
  196.   rc_SaveBitmap       = $0040;
  197.   rc_OP_DX_Output     = $4000;
  198.   rc_DevBits          = $8000;
  199.  
  200. const
  201.   Default_Charset     = 1;
  202.   Hangeul_Charset     = 129;
  203.   ChineseBig5_Charset = 136;
  204.  
  205. { OutPrecision values }
  206. const
  207.   out_TT_Precis   = 4;
  208.   out_Device_Precis = 5;
  209.   out_Raster_Precis = 6;
  210.   out_TT_Only_Precis  = 7;
  211.  
  212. { ClipPrecision values }
  213. const
  214.   clip_Mask   = $0F;
  215.   clip_LH_Angles    = $10;
  216.   clip_TT_Always    = $20;
  217.   clip_Embedded   = $80;
  218.  
  219. { tmPitchAndFamily values }
  220. const
  221.   tmpf_Fixed_Pitch    = $01;
  222.   tmpf_Vector     = $02;
  223.   tmpf_Device     = $08;
  224.   tmpf_Truetype     = $04;
  225.  
  226. { new StretchBlt() Modes (simpler names) }
  227. const
  228.   stretch_ANDScans        = 1;
  229.   stretch_ORScans         = 2;
  230.   stretch_DeleteScans     = 3;
  231.  
  232. { Metafile Functions }
  233. const
  234.   meta_StretchDIB        = $0f43;
  235.   meta_ExtFloodFill        = $0548;
  236.  
  237.   meta_ResetDC         = $014C;
  238.   meta_StartDoc        = $014D;
  239.   meta_StartPage         = $004F;
  240.   meta_EndPage         = $0050;
  241.   meta_AbortDoc        = $0052;
  242.   meta_EndDoc        = $005E;
  243.  
  244.   GetFaceName        = 513;
  245.  
  246. { wm_Size message wParam values }
  247.  
  248. const
  249.   size_Restored = 0;
  250.   size_Minimized = 1;
  251.   size_Maximized = 2;
  252.   size_MaxShow = 3;
  253.   size_MaxHide = 4;
  254.  
  255. { wm_KeyUp/Down/Char HiWord(lParam) flags }
  256.  
  257.   kf_Extended = $0100;
  258.   kf_DLGMode = $0800;
  259.   kf_MenuMode = $1000;
  260.   kf_AltDown = $2000;
  261.   kf_Repeat = $4000;
  262.   kf_Up = $8000;
  263.  
  264. { wm_Activate state values }
  265.  
  266.   wa_Inactive = 0;
  267.   wa_Active = 1;
  268.   wa_ClickActive = 2;
  269.  
  270. { Dialog window class }
  271.  
  272.   wc_Dialog = MakeIntAtom($8002);
  273.  
  274. { Get/SetWindowWord/Long offsets for use with wc_Dialog windows }
  275.  
  276.   dwl_MsgResult = 0;
  277.   dwl_DLGProc = 4;
  278.   dwl_User = 8;
  279.  
  280. { Redefined wm_NCHitTest return values }
  281.  
  282.   htMinButton = 8;
  283.   htMaxButton = 9;
  284.   htBorder = 18;
  285.  
  286. { Special HWND value for use with PostMessage() and SendMessage() }
  287. const
  288.   hWnd_Broadcast  = $FFFF;
  289.  
  290.   wh_MsgFilter = -1;
  291.  
  292.  
  293. { CallMsgFilter() and WH_SYS/MSGFILTER context codes }
  294. const
  295.   msgf_MainLoop            = 8;
  296.   msgf_User                = 4096;
  297.  
  298. {***** Power management ***************************************************}
  299. const
  300.   wm_Power      = $0048;
  301.  
  302. { wParam for WM_POWER window message and DRV_POWER driver notification }
  303.   pwr_Ok              = 1;
  304.   pwr_Fail            = -1;
  305.   pwr_SuspendRequest  = 1;
  306.   pwr_SuspendResume   = 2;
  307.   pwr_CriticalResume  = 3;
  308.  
  309. const
  310.   wm_SystemError = $0017;
  311.  
  312. const
  313.   gcw_Atom = -32;
  314.  
  315. { WM_SHOWWINDOW wParam codes }
  316. const
  317.   sw_OtherMaximized   = 2;
  318.   sw_OtherRestored    = 4;
  319.  
  320.  
  321. { Special value for CreateWindow, et al. }
  322. const
  323.   hWnd_Desktop = 0;
  324.  
  325. const
  326.   wf_Paging = $0800;
  327.   wf_WLO = $8000;
  328.  
  329.   obm_UpArrowI = 32737;
  330.   obm_DnArrowI = 32736;
  331.   obm_RgArrowI = 32735;
  332.   obm_LfArrowI = 32734;
  333.  
  334.   MouseTrails = 39;
  335.  
  336.   GetSetScreenParams = 800;
  337.  
  338.  
  339. { Network support }
  340.  
  341. function WNetAddConnection(lpszNetPath, lpszPassword,
  342.   lpszLoca